home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __word_games__ / dadapoet / background_3633.xml < prev    next >
Extensible Markup Language  |  1993-08-13  |  8KB  |  170 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3633</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_5773.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_5986.css" />
  11.     <part>
  12.         <id>3</id>
  13.         <type>field</type>
  14.         <visible> <false /> </visible>
  15.         <dontWrap> <false /> </dontWrap>
  16.         <dontSearch> <false /> </dontSearch>
  17.         <sharedText> <false /> </sharedText>
  18.         <fixedLineHeight> <true /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <false /> </lockText>
  21.         <rect>
  22.             <left>2</left>
  23.             <top>21</top>
  24.             <right>320</right>
  25.             <bottom>268</bottom>
  26.         </rect>
  27.         <style>scrolling</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <false /> </showLines>
  30.         <wideMargins> <false /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>left</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <textHeight>16</textHeight>
  40.         <name>text</name>
  41.         <script></script>
  42.     </part>
  43.     <part>
  44.         <id>19</id>
  45.         <type>button</type>
  46.         <visible> <false /> </visible>
  47.         <reserved5> 0 </reserved5>
  48.         <reserved4> 0 </reserved4>
  49.         <reserved3> 0 </reserved3>
  50.         <reserved2> 0 </reserved2>
  51.         <reserved1> 0 </reserved1>
  52.         <enabled> <true /> </enabled>
  53.         <rect>
  54.             <left>0</left>
  55.             <top>320</top>
  56.             <right>100</right>
  57.             <bottom>342</bottom>
  58.         </rect>
  59.         <style>roundrect</style>
  60.         <showName> <true /> </showName>
  61.         <highlight> <false /> </highlight>
  62.         <autoHighlight> <false /> </autoHighlight>
  63.         <sharedHighlight> <true /> </sharedHighlight>
  64.         <family>0</family>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>center</textAlign>
  68.         <font>Chicago</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <name>Read File</name>
  72.         <script>on mouseUpif Field "Text" is not empty thenbeep 1put card field "filename" into fnanswer "Clear file " & quote & fn & quote & "?" ┬¼with "Cancel" or "Clear"if it is "cancel" then exit mouseupif it is "Clear" then put empty into card Field "Poem"end ifGet FileName("TEXT")put it into filenameif filename is empty thenexit Mouseupelseput ShortFN(filename) into shortnameset width of card field "Filename" to ┬¼(number of chars in shortname * 10)put shortname into card field "Filename"if visible of card field "filename" is false thenshow card pictureshow card field "filename"show button "close box"show card field "poem"end ifopen file filenameread from file filename until emptyput it into field "text"close file filenameEnable MEnuitem 3 of menu "dadapoet"send mouseup to bg button "Make Poem"end ifend mouseUp</script>
  73.     </part>
  74.     <part>
  75.         <id>20</id>
  76.         <type>button</type>
  77.         <visible> <false /> </visible>
  78.         <reserved5> 0 </reserved5>
  79.         <reserved4> 0 </reserved4>
  80.         <reserved3> 0 </reserved3>
  81.         <reserved2> 0 </reserved2>
  82.         <reserved1> 0 </reserved1>
  83.         <enabled> <true /> </enabled>
  84.         <rect>
  85.             <left>0</left>
  86.             <top>277</top>
  87.             <right>100</right>
  88.             <bottom>299</bottom>
  89.         </rect>
  90.         <style>roundrect</style>
  91.         <showName> <true /> </showName>
  92.         <highlight> <false /> </highlight>
  93.         <autoHighlight> <false /> </autoHighlight>
  94.         <sharedHighlight> <true /> </sharedHighlight>
  95.         <family>0</family>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>0</icon>
  98.         <textAlign>center</textAlign>
  99.         <font>Chicago</font>
  100.         <textSize>12</textSize>
  101.         <textStyle>plain</textStyle>
  102.         <name>Make Poem</name>
  103.         <script>on mouseUpglobal Titlewords,NLines,NWords,Nstanzasif field "text" is empty thenbeep 1answer "You must open a text file first, DaDa!"exit mouseupend ifput empty into card field "Poem"set scroll of card field "Poem" to 0if visible of card field "poem" is false thenshow card pictureshow button "close box"show card field "filename"show card field "poem"end ifput number of words in field "text" into Lastwordput random(Nstanzas - 1) + 1 into stanzasput the textheight of card field "poem" into tHtput the height of card field "poem" into htput empty into thislinerepeat for  random(titlewords - 1) timesset cursor to busyput word random(lastword) of field "Text" into thiswordif char 1 of thisword = quote thendelete char 1 of thisworddelelete last char of thiswordput word random(number of words in thisword) of thisword into thiswordend ifif char 1 of thisword is in "[,(,{,<,ΓÇ£" then delete char 1 of thiswordif last char of thisword is in "],),>,},ΓÇ¥" then delete last char of thiswordput thisline && thisword into thislineend repeatdelete first char of thislineput quote & thisline & quote into first line of card field "poem"put empty into thislineput 2 into linenumrepeat for stanzas timesrepeat for random(Nlines -1) + 1 timesrepeat for random(Nwords -1) + 1 timesset cursor to busyput word random(lastword) of field "Text" into thisword-- if random(100) <= 5 then put "Dada" into thiswordif char 1 of thisword = quote thendelete char 1 of thisworddelete last char of thiswordput word random(number of words in thisword) of thisword into thiswordend ifif char 1 of thisword is in "[,(,{,<,ΓÇ£" then delete char 1 of thiswordif last char of thisword is in "],),>,},ΓÇ¥" then delete last char of thiswordput thisline && thisword into thislineend repeatadd 1 to linenumput thisline into line linenum of card field "poem"set scroll of card field "poem" to 9000put empty into thislineend repeatadd 1 to linenumend repeatadd 1 to linenumput "┬⌐" && The Date && "by DadaPoet" into thislineput Thisline into line linenum of card field "poem"set scroll of card field "poem" to 9000beep 1Enable Menuitem 4 of menu "DadaPoet"end mouseUp</script>
  104.     </part>
  105.     <part>
  106.         <id>21</id>
  107.         <type>button</type>
  108.         <visible> <false /> </visible>
  109.         <reserved5> 0 </reserved5>
  110.         <reserved4> 0 </reserved4>
  111.         <reserved3> 0 </reserved3>
  112.         <reserved2> 0 </reserved2>
  113.         <reserved1> 0 </reserved1>
  114.         <enabled> <true /> </enabled>
  115.         <rect>
  116.             <left>0</left>
  117.             <top>298</top>
  118.             <right>100</right>
  119.             <bottom>320</bottom>
  120.         </rect>
  121.         <style>roundrect</style>
  122.         <showName> <true /> </showName>
  123.         <highlight> <false /> </highlight>
  124.         <autoHighlight> <false /> </autoHighlight>
  125.         <sharedHighlight> <true /> </sharedHighlight>
  126.         <family>0</family>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>0</icon>
  129.         <textAlign>center</textAlign>
  130.         <font>Chicago</font>
  131.         <textSize>12</textSize>
  132.         <textStyle>plain</textStyle>
  133.         <name>Save Poem</name>
  134.         <script>on mouseUpglobal PoemNumif card field "poem" is empty thenbeep 1answer "Dada, you must make a poem first!"exit mouseupend ifadd 1 to PoemNumget NewFileName("Save Dada Poem as?","Dada Poem" && poemNum)if it is empty thensubtract 1 from poemNumexit mouseupelseput it into filenameopen file filenamewrite card  field "poem" to file filenameclose file filenameend ifend mouseUp</script>
  135.     </part>
  136.     <part>
  137.         <id>22</id>
  138.         <type>button</type>
  139.         <visible> <false /> </visible>
  140.         <reserved5> 0 </reserved5>
  141.         <reserved4> 0 </reserved4>
  142.         <reserved3> 0 </reserved3>
  143.         <reserved2> 0 </reserved2>
  144.         <reserved1> 0 </reserved1>
  145.         <enabled> <true /> </enabled>
  146.         <rect>
  147.             <left>0</left>
  148.             <top>255</top>
  149.             <right>100</right>
  150.             <bottom>277</bottom>
  151.         </rect>
  152.         <style>roundrect</style>
  153.         <showName> <true /> </showName>
  154.         <highlight> <false /> </highlight>
  155.         <autoHighlight> <false /> </autoHighlight>
  156.         <sharedHighlight> <true /> </sharedHighlight>
  157.         <family>0</family>
  158.         <titleWidth>0</titleWidth>
  159.         <icon>0</icon>
  160.         <textAlign>center</textAlign>
  161.         <font>Chicago</font>
  162.         <textSize>12</textSize>
  163.         <textStyle>plain</textStyle>
  164.         <name>Quit</name>
  165.         <script>on mouseUpanswer "Quit to..." with "Cancel" or "Finder" or "Home"if it is "Cancel" then exit mouseupif it is "Finder" then domenu "Quit HyperCard"if it is "Home" then Go Homeend mouseUp</script>
  166.     </part>
  167.     <name></name>
  168.     <script></script>
  169. </background>
  170.